unit uExceptionSaque;

interface

uses
  System.SysUtils, uExceptionSistemaBanco;

type
  ESaque = class(ESistemaBanco)
  private
    FValorSaque : double;
  public
    property ValorSaque : double read FValorSaque write FValorSaque;
    constructor create(MsgErro : String; ValorSaque : double);
  end;

implementation

constructor ESaque.create(MsgErro : String; ValorSaque: Double);
begin
  self.ValorSaque := ValorSaque;
  self.Message    := MsgErro;
end;

end.
